unit u_cadastroempresawizard;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, u_cadastropadraowizard, AdvAppStyler, JvExControls, JvPageList,
  AdvSmoothStepControl, AdvGlowButton, ExtCtrls, StdCtrls, DBCtrls,
  AdvEdit, DBAdvEd, AdvGroupBox, AdvEdBtn, DBPlannerDatePicker, Grids,
  DBGrids;

type
  TFRM_CadastroEmpresaWizard = class(TFRM_CadastroPadraoWizard)
    pgEmpresa: TJvStandardPage;
    edtRazaoSocial: TDBAdvEdit;
    edtNomeFantasia: TDBAdvEdit;
    edtCNPJ: TDBAdvEdit;
    edtIE: TDBAdvEdit;
    edtTelComercial: TDBAdvEdit;
    edtTelFAX: TDBAdvEdit;
    edtTelSAC: TDBAdvEdit;
    edtResponsavel: TDBAdvEdit;
    edtRespEmail: TDBAdvEdit;
    edtRespTelefone: TDBAdvEdit;
    edtRespCelular: TDBAdvEdit;
    pgAtivacao: TJvStandardPage;
    edtCEP: TDBAdvEdit;
    edtEndereco: TDBAdvEdit;
    edtNumero: TDBAdvEdit;
    cboUF: TDBComboBox;
    Label25: TLabel;
    edtLocalidade: TDBAdvEdit;
    edtBairro: TDBAdvEdit;
    edtComplemento: TDBAdvEdit;
    btnCEP: TAdvGlowButton;
    edtAgente: TDBAdvEdit;
    edtConsultor: TDBAdvEdit;
    edtConsultorEmail: TDBAdvEdit;
    edtConsultorTel: TDBAdvEdit;
    edtMultiempresa: TDBAdvEdit;
    edtImplantacao: TDBPlannerDatePicker;
    edtBackup: TDBPlannerDatePicker;
    edtAtualizacao: TDBPlannerDatePicker;
    edtVersao: TDBAdvEdit;
    edtNumContrato: TDBAdvEdit;
    edtInicioContrato: TDBPlannerDatePicker;
    edtTerminoContrato: TDBPlannerDatePicker;
    pgContato: TJvStandardPage;
    GridContatos: TDBGrid;
    pgDepartamento: TJvStandardPage;
    GridDepartamento: TDBGrid;
    procedure btnCEPClick(Sender: TObject);
    procedure AdvGlowButton3Click(Sender: TObject);
    procedure btnProximoClick(Sender: TObject);
    procedure btnAnteriorClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRM_CadastroEmpresaWizard: TFRM_CadastroEmpresaWizard;

implementation

uses lib_sistema;

{$R *.dfm}

procedure TFRM_CadastroEmpresaWizard.btnCEPClick(Sender: TObject);
begin
  inherited;
  Mensagem('teste');
end;

procedure TFRM_CadastroEmpresaWizard.AdvGlowButton3Click(Sender: TObject);
begin
  inherited;
  Mensagem('teste');
end;

procedure TFRM_CadastroEmpresaWizard.btnProximoClick(Sender: TObject);
begin
  inherited;
  btnAnterior.Enabled := true;
  Etapas.NextStep;
  plEtapas.NextPage;
end;

procedure TFRM_CadastroEmpresaWizard.btnAnteriorClick(Sender: TObject);
begin
  inherited;
  Etapas.PreviousStep;
  plEtapas.PrevPage;
end;

end.
